home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / angry / tomas.dir / 00001_Script_handlers next >
Text File  |  1999-03-01  |  3KB  |  109 lines
  1.  
  2. global loop_count
  3. global pointy, pointym
  4.  
  5. global currentPups
  6.  
  7. on startMovie
  8.   set loop_count = 0
  9.   set pointy = the number of member "pointy"
  10.   set pointym = the number of member "pointy_mask"
  11.   
  12.   puppetSprite 43, TRUE
  13.   set currentPups = [43]
  14.   
  15.   --  set the exitLock to TRUE
  16. end
  17.  
  18.  
  19. on keyDown
  20.   
  21.   set inKey = the key
  22.   if inKey = "q" OR inKey = "Q" then go to frame "quitArtRight" of movie "intro"
  23.   
  24.   set keyVal = value(inKey)
  25.   if not(voidP(keyVal)) then
  26.     if keyVal <= 7 then set the soundLevel to keyVal
  27.     else set the soundLevel to 7
  28.   end if
  29.   
  30. end
  31.  
  32.  
  33. on autoPuppet theseSprites, toThis
  34.   repeat with x = 1 to count(theseSprites)
  35.     puppetSprite getAt(theseSprites, x), toThis
  36.   end repeat
  37. end
  38.  
  39.  
  40. on sliceTime
  41.   set currentTime = the long time
  42.   set startHere = 1
  43.   
  44.   set hourFind = timeSort(startHere, currentTime, ":")
  45.   set theHour = getAt(hourFind, 1)
  46.   if the number of chars in theHour = 2 then
  47.     set hour1 = char 1 of theHour
  48.     set hour2 = char 2 of theHour
  49.   else
  50.     set hour1 = VOID
  51.     set hour2 = char 1 of theHour
  52.   end if
  53.   set startHere = getAt(hourFind, 2)
  54.   
  55.   set minuteFind = timeSort(startHere, currentTime, ":")
  56.   set theMinute = getAt(minuteFind, 1)
  57.   set min1 = char 1 of theMinute
  58.   set min2 = char 2 of theMinute
  59.   set startHere = getAt(minuteFind, 2)
  60.   
  61.   set secondFind = timeSort(startHere, currentTime, " ")
  62.   set theSecond = getAt(secondFind, 1)
  63.   set sec1 = char 1 of theSecond
  64.   set sec2 = char 2 of theSecond
  65.   set startHere = getAt(secondFind, 2)
  66.   
  67.   set amPmFind = timeSort(startHere, currentTime, "")
  68.   set theAMPM = getAt(amPmFind, 1)
  69.   
  70.   set returnMe = [hour1, hour2, min1, min2, sec1, sec2, theAMPM]
  71.   
  72.   return returnMe
  73. end
  74.  
  75.  
  76. on timeSort startHere, currentTime, thisEnd
  77.   repeat with x = startHere to the number of chars in currentTime
  78.     if char x of currentTime = thisEnd then
  79.       exit repeat
  80.     else
  81.       set returnMe = returnMe & char x of currentTime
  82.     end if
  83.   end repeat
  84.   
  85.   return [returnMe, x+1]
  86. end
  87.  
  88.  
  89.  
  90.  
  91. on idle
  92.   --  checkExit  
  93.   
  94.   if the frame > 9 then
  95.     set nowTime = sliceTime()
  96.     
  97.     repeat with a = 1 to count(nowTime)
  98.       set thisnumber = getAt(nowTime, a)
  99.       if not(voidP(value(thisnumber))) OR thisnumber = "AM" OR thisnumber = "PM" then
  100.         set the member of sprite(29+a) to member getAt(nowTime, a)
  101.       else
  102.         set the member of sprite(29+a) to member "0"
  103.       end if
  104.     end repeat
  105.   end if
  106. end
  107.  
  108.  
  109.